From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 2 Jun 1997 00:22:49 +0000 (+0000)
Subject: (Fmake_byte_code): Set val from p, not from val.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~80969
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=50aee051c38a6faa6e67f014bbf9499fd2b61448;p=emacs.git

(Fmake_byte_code): Set val from p, not from val.
(make_event_array): Convert nargs to Lisp_Object.
---

diff --git a/src/alloc.c b/src/alloc.c
index c3fbc8b633c..ed57954cf17 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -876,7 +876,7 @@ significance.")
 	args[index] = Fpurecopy (args[index]);
       p->contents[index] = args[index];
     }
-  XSETCOMPILED (val, val);
+  XSETCOMPILED (val, p);
   return val;
 }
 
@@ -1274,7 +1274,7 @@ make_event_array (nargs, args)
   {
     Lisp_Object result;
     
-    result = Fmake_string (nargs, make_number (0));
+    result = Fmake_string (make_number (nargs), make_number (0));
     for (i = 0; i < nargs; i++)
       {
 	XSTRING (result)->data[i] = XINT (args[i]);